home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / apps / astronmy / stargide.lzh / RUN.LST < prev    next >
File List  |  1985-11-20  |  2KB  |  81 lines
  1. Print At(10,2);"Get ready. Number of designs ? "'
  2. Input Nd%
  3. Print At(10,4);"Colour 1 RGB ? "'
  4. Input Rgb1$
  5. Print At(10,6);"Colour 2 rgb ? "'
  6. Input Rgb2$
  7. Print At(10,8);"colour 3 rgb ? "'
  8. Input Rgb3$
  9. Setcolor 0,0,0,0         ! black
  10. Setcolor 1,Val(Left$(Rgb1$)),Val(Mid$(Rgb1$,2,1)),Val(Right$(Rgb1$))
  11. Setcolor 2,Val(Left$(Rgb2$)),Val(Mid$(Rgb2$,2,1)),Val(Right$(Rgb2$))
  12. Setcolor 3,Val(Left$(Rgb3$)),Val(Mid$(Rgb3$,2,1)),Val(Right$(Rgb3$))
  13. Dim Nps%(Nd%-1)
  14. Dim Npc%(Nd%-1)
  15. Dim Npg%(Nd%-1)
  16. Dim Sad(Nd%-1)
  17. Dim Tad(Nd%-1)
  18. Dim Sra(Nd%-1)
  19. Dim Fra(Nd%-1)
  20. Dim Sod%(Nd%-1)
  21. Dim Scheme$(Nd%-1)
  22. Dim Px(100)
  23. Dim Py(100)
  24. Dim Qx(100)
  25. Dim Qy(100)
  26. For I=0 To Nd%-1
  27.   Cls
  28.   Print At(10,12);"Design no."'
  29.   Print At(21,12);I+1'
  30.   Print At(10,13);"sides "'
  31.   Input Nps%(I)
  32.   Print At(10,14);"circuits "'
  33.   Input Npc%(I)
  34.   Print At(10,15);"repetitions "'
  35.   Input Npg%(I)
  36.   Print At(10,16);"starting angle "'
  37.   Input Sad(I)
  38.   Print At(10,17);"finishing angle "'
  39.   Input Tad(I)
  40.   Print At(10,18);"starting radius ?"'
  41.   Input Sra(I)
  42.   Print At(10,19);"finishing radius ?"'
  43.   Input Fra(I)
  44.   Print At(10,20);"single spiral-1  double spiral -2"'
  45.   Input Sod%(I)
  46.   Print At(10,21);"colour scheme e.g. 111222333 "'
  47.   Input Scheme$(I)
  48. Next I
  49. Cls
  50. For I=0 To Nd%-1
  51.   Cra=Sra(I)
  52.   Cad=Sad(I)
  53.   Rcad=Cad      !reverse disp.angle for double spiral
  54.   For J=1 To Npg%(I)
  55.     Color Val(Mid$(Scheme$(I),J,1))
  56.     Rstep=(Sra(I)-Fra(I))/Npg%(I)
  57.     Astep=(Sad(I)-Tad(I))/Npg%(I)/57.3
  58.     For K=0 To Nps%(I)-1
  59.       Px(K)=320+(2*Cra)*Cos(Cad+(K*(Npc%(I)/Nps%(I)*2*Pi)))
  60.       Py(K)=100+Cra*Sin(Cad+(K*(Npc%(I)/Nps%(I)*2*Pi)))
  61.       If Sod%(I)=2 Then
  62.         Qx(K)=320+2*Cra*Cos(Rcad+(K*(Npc%(I)/Nps%(I)*2*Pi)))
  63.         Qy(K)=100+Cra*Sin(Rcad+(K*(Npc%(I)/Nps%(I)*2*Pi)))
  64.       Endif
  65.     Next K
  66.     For K=0 To Nps%(I)-2
  67.       Line Px(K),Py(K),Px(K+1),Py(K+1)
  68.     Next K
  69.     Line Px(Nps%(I)-1),Py(Nps%(I)-1),Px(0),Py(0)
  70.     Cad=Cad+Astep
  71.     Rcad=Rcad-Astep
  72.     If Sod%(I)=2 Then
  73.       For K=0 To Nps%(I)-2
  74.         Line Qx(K),Qy(K),Qx(K+1),Qy(K+1)
  75.       Next K
  76.       Line Qx(Nps%(I)-1),Qy(Nps%(I)-1),Qx(0),Qy(0)
  77.     Endif
  78.     Cra=Cra-Rstep
  79.   Next J
  80. Next I
  81.